home *** CD-ROM | disk | FTP | other *** search
/ Info-Mac 4 / Info_Mac IV CD-ROM (Pacific HiTech Inc.)(August 1994).iso / Science / Asymptote Demo / Examples / Demos / 12) GSC star chart / Demo12 < prev    next >
Encoding:
Text File  |  1994-05-07  |  725 b   |  26 lines  |  [TEXT/DWat]
  1. % Asymptote Demo12
  2.  
  3. % An example of how to read a FITS format table file
  4. % containing guide stars from the Guide Star Catalog used
  5. % by the Hubble Space Telescope.
  6.  
  7. % Because GSC fields have over 2000 pts, check to see if
  8. %  we can read them all.
  9. set theResponse true
  10. if maxpts 2500 < then $
  11.     ask theResponse Ok Stop You can't read all of the points with the present memory allocaton.  Do you wish to continue?
  12. if theResponse false = then help Memory Use
  13. if theResponse false = then return
  14.  
  15. set fieldSize 200
  16. set fieldSize ?How big a field do you want (in arcminutes)
  17.  
  18. setupGSCchart 10 24 10 +1 68 24 40 fieldSize
  19. fullscreen yes
  20. readGSC 4384.GSC
  21. setmaglimits -1 18
  22. plotstars
  23.  
  24. npts 0        % To clear out the labels (save memory)
  25.  
  26.